home *** CD-ROM | disk | FTP | other *** search
/ Corel Professional Photos 163: Nesting Birds / Corel Professional Photos - 1994 - 163 - Nesting Birds.ISO / drwmodel / msdetect.inc < prev    next >
Text File  |  1993-05-02  |  9KB  |  254 lines
  1. '**************************************************************************
  2. '*************************  Setup Detect API's  ***************************
  3. '**************************************************************************
  4. ''Removed unused functions - FREM 03/04/92
  5.  
  6. ''detect
  7.  
  8. DECLARE FUNCTION CbGetEnvVariableValue LIB "msdetstf.dll" (szEnvVar$, szBuf$, cbBuf%) AS INTEGER
  9. DECLARE FUNCTION FGetValidDrivesList LIB "msdetstf.dll" (szSymbol$) AS INTEGER
  10. DECLARE FUNCTION FIsRemoteDrive LIB "msdetstf.dll" (nDrive%) AS INTEGER
  11. DECLARE FUNCTION LcbTotalDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  12. DECLARE FUNCTION LcbFreeDrive LIB "msdetstf.dll" (nDrive%) AS LONG
  13. DECLARE FUNCTION FDirExists LIB "msdetstf.dll" (szDir$) AS INTEGER
  14. DECLARE FUNCTION FDoesFileExist LIB "msdetstf.dll" (szFileName$, mode%) AS INTEGER
  15. DECLARE FUNCTION FDoesIniSectionExist LIB "msdetstf.dll" (szFile$, szSect$) AS INTEGER
  16. DECLARE FUNCTION FDoesIniKeyExist LIB "msdetstf.dll" (szFile$, szSect$, szKey$) AS INTEGER
  17. DECLARE FUNCTION CbGetIniKeyString LIB "msdetstf.dll" (szFile$, szSect$, szKey$, szBuf$, cbBuf%) AS INTEGER
  18. DECLARE FUNCTION WGetDOSMajorVersion LIB "msdetstf.dll" AS INTEGER
  19. DECLARE FUNCTION WGetDOSMinorVersion LIB "msdetstf.dll" AS INTEGER
  20. DECLARE FUNCTION WGetNumWinApps LIB "msdetstf.dll" AS INTEGER
  21. DECLARE FUNCTION FHasMonochromeDisplay LIB "msdetstf.dll" AS INTEGER
  22. DECLARE FUNCTION FHasMouseInstalled LIB "msdetstf.dll" AS INTEGER
  23. DECLARE FUNCTION CbFindFileInTree LIB "msdetstf.dll" (szFile$, szDir$, szBuf$, cbBuf%) AS INTEGER
  24. DECLARE FUNCTION GetTypeFaceNameFromTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  25. DECLARE FUNCTION GetExistingFOTFileForTTF LIB "msdetstf.dll" (szFile$, szBuf$, cbBuf%) AS INTEGER
  26.  
  27.  
  28. '*************************************************************************
  29. '****************  Detect Basic Wrapper Declarations  ********************
  30. '*************************************************************************
  31.  
  32.  
  33. '' detect
  34.  
  35. DECLARE FUNCTION GetFreeSpaceForDrive (szDrive$) AS LONG
  36.  
  37. DECLARE FUNCTION DoesFileExist (szFile$, mode%) AS INTEGER
  38. DECLARE FUNCTION FindFileInTree (szFile$, szDir$) AS STRING
  39.  
  40. DECLARE FUNCTION DoesIniSectionExist (szFile$, szSect$) AS INTEGER
  41. DECLARE FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) AS INTEGER
  42. DECLARE FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) AS STRING
  43.  
  44. DECLARE FUNCTION GetEnvVariableValue (szEnvVar$) AS STRING
  45.  
  46. DECLARE FUNCTION IsDriveNetwork (szDrive$) AS INTEGER
  47.  
  48. DECLARE SUB GetValidDrivesList (szSymbol$)
  49.  
  50. DECLARE FUNCTION DoesDirExist (szDir$) AS INTEGER
  51.  
  52. '$IFDEF MOREAPI
  53.  
  54. DECLARE FUNCTION GetTotalSpaceForDrive (szDrive$) AS LONG
  55. DECLARE FUNCTION HasMonochromeDisplay AS INTEGER
  56. DECLARE FUNCTION HasMouseInstalled AS INTEGER
  57.  
  58. '$ENDIF ''MOREAPI
  59.  
  60. '*************************************************************************
  61. FUNCTION IsDriveNetwork (szDrive$) STATIC  AS INTEGER
  62. '$ifdef DEBUG
  63.     if FValidDrive(szDrive$) = 0 then
  64.         BadArgErr 1, "IsDriveNetwork", szDrive$
  65.     end if
  66. '$endif ''DEBUG
  67.     IsDriveNetwork = FIsRemoteDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  68. END FUNCTION
  69.  
  70. '*************************************************************************
  71. SUB GetValidDrivesList (szSymbol$) STATIC
  72. '$ifdef DEBUG
  73.     if szSymbol$ = "" then
  74.         BadArgErr 1, "GetValidDrivesList", szSymbol$
  75.     end if
  76. '$endif ''DEBUG
  77.     if FGetValidDrivesList(szSymbol$) = 0 then
  78. '$ifdef DEBUG
  79.         StfApiErr saeFail, "GetValidDrivesList", szSymbol$
  80. '$endif ''DEBUG
  81.         ERROR STFERR
  82.     end if
  83. END SUB
  84.  
  85.  
  86. '*************************************************************************
  87. FUNCTION GetEnvVariableValue (szEnvVar$) STATIC  AS STRING
  88. '$ifdef DEBUG
  89.     if szEnvVar$ = "" then
  90.         BadArgErr 1, "GetEnvVariableValue", szEnvVar$
  91.     end if
  92. '$endif ''DEBUG
  93.     cb% = 1024
  94.     szBuf$ = STRING$(cb%, 32)
  95.     cbRet% = CbGetEnvVariableValue(szEnvVar$, szBuf$, cb%)
  96.     GetEnvVariableValue = szBuf$
  97. '$ifdef DEBUG
  98.     IF cbRet% >= cb% THEN
  99.         StfApiErr saeOvfl, "GetEnvVariableValue", szEnvVar$
  100.         ERROR STFERR
  101.     END IF
  102. '$endif ''DEBUG
  103.     szBuf$ = ""
  104. END FUNCTION
  105.  
  106.  
  107. '*************************************************************************
  108. FUNCTION GetFreeSpaceForDrive (szDrive$) STATIC  AS LONG
  109. '$ifdef DEBUG
  110.     if FValidDrive(szDrive$) = 0 then
  111.         BadArgErr 1, "GetFreeSpaceForDrive", szDrive$
  112.     end if
  113. '$endif ''DEBUG
  114.     GetFreeSpaceForDrive = LcbFreeDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  115. END FUNCTION
  116.  
  117.  
  118. '*************************************************************************
  119. FUNCTION DoesFileExist (szFileName$, mode%) STATIC  AS INTEGER
  120. '$ifdef DEBUG
  121.     if FValidFATPath(szFileName$) = 0 then
  122.         BadArgErr 1, "DoesFileExist", szFileName$+", "+STR$(mode%)
  123.     end if
  124. '$endif ''DEBUG
  125.     DoesFileExist = FDoesFileExist(szFileName$, mode%)
  126. END FUNCTION
  127.  
  128. '*************************************************************************
  129. FUNCTION FindFileInTree (szFile$, szDir$) STATIC  AS STRING
  130. '$ifdef DEBUG
  131.     if CchlValidFATSubPath(szFile$) = 0 then
  132.         n% = 1
  133.     elseif FValidFATDir(szDir$) = 0 then
  134.         n% = 2
  135.     else
  136.         n% = 0
  137.     end if
  138.     if n% > 0 then
  139.         BadArgErr n%, "FindFileInTree", szFile$+", "+szDir$
  140.     end if
  141. '$endif ''DEBUG
  142.  
  143.     cb% = 512
  144.     szBuf$ = STRING$(cb%, 32)
  145.     cbRet% = CbFindFileInTree(szFile$, szDir$, szBuf$, cb%)
  146.     FindFileInTree = szBuf$
  147. '$ifdef DEBUG
  148.     IF cbRet% >= cb% THEN
  149.         StfApiErr saeOvfl, "FindFileInTree", szFile$+", "+szDir$
  150.         ERROR STFERR
  151.     END IF
  152. '$endif ''DEBUG
  153.     szBuf$ = ""
  154. END FUNCTION
  155.  
  156.  
  157. '*************************************************************************
  158. FUNCTION DoesIniSectionExist (szFile$, szSect$) STATIC  AS INTEGER
  159. '$ifdef DEBUG
  160.     if FValidIniFile(szFile$) = 0 then
  161.         BadArgErr 1, "DoesIniSectionExist", szFile$+", "+szSect$
  162.     end if
  163. '$endif ''DEBUG
  164.     DoesIniSectionExist = FDoesIniSectionExist(szFile$, szSect$)
  165. END FUNCTION
  166.  
  167.  
  168. '*************************************************************************
  169. FUNCTION DoesIniKeyExist (szFile$, szSect$, szKey$) STATIC  AS INTEGER
  170. '$ifdef DEBUG
  171.     if FValidIniFile(szFile$) = 0 then
  172.         n% = 1
  173.     elseif szKey$ = "" then
  174.         n% = 3
  175.     else
  176.         n% = 0
  177.     end if
  178.     if n% > 0 then
  179.         BadArgErr n%, "DoesIniKeyExist", szFile$+", "+szSect$+", "+szKey$
  180.     end if
  181. '$endif ''DEBUG
  182.  
  183.     DoesIniKeyExist = FDoesIniKeyExist(szFile$, szSect$, szKey$)
  184. END FUNCTION
  185.  
  186.  
  187. '*************************************************************************
  188. FUNCTION GetIniKeyString (szFile$, szSect$, szKey$) STATIC  AS STRING
  189. '$ifdef DEBUG
  190.     if FValidIniFile(szFile$) = 0 then
  191.         n% = 1
  192.     elseif szKey$ = "" then
  193.         n% = 3
  194.     else
  195.         n% = 0
  196.     end if
  197.     if n% > 0 then
  198.         BadArgErr n%, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  199.     end if
  200. '$endif ''DEBUG
  201.  
  202.     cb% = 512
  203.     szBuf$ = STRING$(cb%, 32)
  204.     cbRet% = CbGetIniKeyString(szFile$, szSect$, szKey$, szBuf$, cb%)
  205.     GetIniKeyString = szBuf$
  206. '$ifdef DEBUG
  207.     IF cbRet% >= cb% THEN
  208.         StfApiErr saeOvfl, "GetIniKeyString", szFile$+", "+szSect$+", "+szKey$
  209.         ERROR STFERR
  210.     END IF
  211. '$endif ''DEBUG
  212.     szBuf$ = ""
  213. END FUNCTION
  214.  
  215. '*************************************************************************
  216. FUNCTION DoesDirExist (szDir$) STATIC  AS INTEGER
  217. '$ifdef DEBUG
  218.     if FValidFATDir(szDir$) = 0 then
  219.         BadArgErr 1, "DoesDirExist", szDir$
  220.     end if
  221. '$endif ''DEBUG
  222.     DoesDirExist = FDirExists(szDir$)
  223. END FUNCTION
  224.  
  225.  
  226. '' This stuff was deleted temporary (Parser out of memry problem)
  227. '$IFDEF MOREAPI
  228.  
  229. '*************************************************************************
  230. FUNCTION GetTotalSpaceForDrive (szDrive$) STATIC  AS LONG
  231. '$ifdef DEBUG
  232.     if FValidDrive(szDrive$) = 0 then
  233.         BadArgErr 1, "GetTotalSpaceForDrive", szDrive$
  234.     end if
  235. '$endif ''DEBUG
  236.     GetTotalSpaceForDrive = LcbTotalDrive(ASC(UCASE$(szDrive$)) - ASC("A") + 1)
  237. END FUNCTION
  238.  
  239.  
  240.  
  241. '*************************************************************************
  242. FUNCTION HasMonochromeDisplay STATIC  AS INTEGER
  243.     HasMonochromeDisplay = FHasMonochromeDisplay
  244. END FUNCTION
  245.  
  246.  
  247. '*************************************************************************
  248. FUNCTION HasMouseInstalled STATIC  AS INTEGER
  249.     HasMouseInstalled = FHasMouseInstalled
  250. END FUNCTION
  251.  
  252.  
  253. '$ENDIF ''MOREAPI
  254.